home *** CD-ROM | disk | FTP | other *** search

---

/ Developer Source 7 / developer source - volume 7.iso / parad / jul95 / kada1f4.gif

< prev

next >

Graphics Interchange Format  |  1996-11-18  |  8KB  |  374x436  |  4-bit (5 colors)

Labels: text | screenshot | display | software | number | font
OCR: SIMUL.FSL :: bxToolBar :: proc proc 1EditMenuResponse() Logical var aChoice String sId SmallInt endVar aChoice = 1popEdit.show( ) switch case aChoice = "&Undo\tAlt+BkSp" : SId = MenuEditUndo case aChoice = "Cu&t\tShift+Del" : SId = MenuEditCut case aChoice = "&Copy\tCtrl+Ins" : SId = MenuEditCopy case aChoice = "&Paste\tShift+Ins" : SId = MenuEditPaste otherwise : return True endSwitch return active.menuAction( sId ) endProc Edit Line: 1 Col: 1

---